#!/usr/bin/perl

# Иванов Илья
# 23.11.2013

# ЗАДАНИЕ:
# Создать шаблон для поиска любого HTML-тега.

# РЕШЕНИЕ:
# Ищет XML-теги.
# Выделяет наибольший отрезок текста, образующий well-formed XML-документ, собками [].

$text = "";
while ($line = <>) {
    $text .= $line;
}

$text =~ s/(<([\w]+) *(\/>|>([\w ]*|(?1))<\/\2>))/[$1]/ig;
print $text;
